clear

use "/home/scott/Dropbox/Florence_Paper/replication/data/test_currency3.dta", clear

tset time

tabulate gondf, g(gdf)

drop gdf4


tabulate scrutiny, g(scrt)


drop scrt3


*** 1 and 2 preceed 1393 make 3 baseline ***


tabulate quarter, g(qrt)


generate export = gdf2+gdf3 




reg diff_logS1 gdf* scrt* ,  cluster(group), if Year > 1393

eststo a1


test gdf2=gdf3

reg diff_logS1 gdf* scrt* qrt*,  cluster(group), if Year > 1393

eststo a2

test gdf2=gdf3


reg diff_logS1 gdf* scrt* diff_date qrt*,  cluster(group), if Year > 1393

eststo a3



test gdf2=gdf3


reg diff_logS1 gdf* scrt* time_till_sort qrt*,  cluster(group), if Year > 1393


eststo a4


test gdf2=gdf3

reg diff_logS1 gdf* scrt* qrt*  diff_date time_till_sort,  cluster(group), if Year > 1393

eststo a5



test gdf2=gdf3


estout a1 a2 a3 a4 a5, cells(b(star fmt(5)) se(par fmt(5))) style(tex) stats(r2)  starlevels(* 0.10 ** 0.05 *** 0.01)





reg diff_logS1 export  scrt* ,  cluster(group), if Year > 1393


eststo b1


reg diff_logS1 export  scrt* qrt*,  cluster(group), if Year > 1393


eststo b2



reg diff_logS1 export  scrt* diff_date,  cluster(group), if Year > 1393


eststo b3



reg diff_logS1 export  scrt* time_till_sort,  cluster(group), if Year > 1393

eststo b4


reg diff_logS1 export  scrt* diff_date time_till_sort qrt* , cluster(group), if Year > 1393

eststo b5


estout b1 b2 b3 b4 b5, cells(b(star fmt(5)) se(par fmt(5))) style(tex) stats(r2)  starlevels(* 0.10 ** 0.05 *** 0.01)












